home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / clipexam / clipexam.bas next >
BASIC Source File  |  1995-05-09  |  911b  |  40 lines
  1. Option Explicit
  2.  
  3.  
  4. Type RECT
  5.     left As Integer
  6.     top As Integer
  7.     right As Integer
  8.     bottom As Integer
  9. End Type
  10.  
  11. ' Windows API calls
  12. Declare Sub ClipCursor Lib "User" (lpRect As RECT)
  13. Declare Sub GetClipCursor Lib "User" (lprc As RECT)
  14. Declare Sub GetWindowRect Lib "User" (ByVal hWnd As Integer, lpRect As RECT)
  15. Declare Function GetDesktopWindow Lib "User" () As Integer
  16.  
  17. ' Restore cursor clipping to whole screen
  18. Sub ClipCursorToScreen ()
  19. Dim rectScreen As RECT
  20.  
  21.     ' Get unclipped whole screen for later.
  22.     Call GetWindowRect(GetDesktopWindow(), rectScreen)
  23.  
  24.     ' Set clipping to rectangle
  25.     Call ClipCursor(rectScreen)
  26. End Sub
  27.  
  28. ' Clip cursor to window of handle parameter
  29. Sub ClipCursorToWindow (ByVal hWnd As Integer)
  30. Dim r As RECT
  31.  
  32.     ' get window rectangle
  33.     Call GetWindowRect(hWnd, r)
  34.  
  35.     ' clip to rectangle
  36.     Call ClipCursor(r)
  37.     
  38. End Sub
  39.  
  40.